Nanti setelah diklik gridview makaa datanya muncul ke textbox 
Kalau sudah muncul di textbox lalu bisa edit datanya 
Clik cles datanya dari ini 
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Maka akan muncul di textbox 
Datagridview kita double clik 
Kemudian di event kita pilih 


å 06.[PART6] CODING MENAMPILKAN DATA DARI DATAGRIDVIEW KE TEXTBOX VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


01:38 05:36 
P omj TAN HIS Me | 


Cels mouse klik 
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jadi ketika data cles nya diklik maka datanya akan tampil di textbox 
Caranya 
Txtkodeadmin.text=datagridview1.rows(e.Rowindex).cels(0).value 
Lalu coba dirun 
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Ketika diklik datanya ini maka akan mucul textbox 


A 06.[PART6] CODING MENAMPILKAN DATA DARI DATAGRIDVIEW KE TEXTBOX VB.NET.mp4 - VLC media player ne x 


Media Playback Audio Video Subtitle Tools View Help 
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Kemudian 
Buat semuanya 
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Jadi datanya akan muncul ditextboxnya 


A 06.[PART6] CODING MENAMPILKAN DATA DARI DATAGRIDVIEW KE TEXTBOX VB.NET.mp4 - VLC media player ne x 
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Berikutnya edit 


Yg diedit diform 
Imports System.Data.Odbc 
Public Class form master 
Private Sub Button1 Click(sender As Object, e As EventArgs) Handles 
Button1.Click 
bukaDB() 


End Sub 


Sub TIDAKSIAPDIISI () 


txtkodeadmin.Enabled = False 
txtnamaadmin.Enabled = False 
txtkatasandi.Enabled = False 


ComboBox1.Enabled = False 


End Sub 

Sub SIAPISI() 
txtkodeadmin.Enabled True 
txtnamaadmin.Enabled True 
txtkatasandi.Enabled = True 
ComboBox1.Enabled = True 

End Sub 


Sub KOSONGKANTEXT () 
txtkodeadmin.Text = "" 
txtnamaadmin.Text = "" 
txtkatasandi.Text = 
ComboBox1.Text = "" 

End Sub 

Sub KONDISIAWAL () 
btntambah.Text = "TAMBAH" 


btnedit.Text = "EDIT" 
btnhapus.Text = "HAPUS" 

End Sub 

Sub ISICOMBOBOX1 () 
ComboBox1.Items.Add( "ADMIN" ) 
ComboBox1.Items.Add("USER") 

End Sub 


Sub TAMPILGDV () 
bukaDB() 
da = New OdbcDataAdapter( "SELECT kodeadmin, namaadmin, katasandi, level from 
tbl admin", conn) 
ds = New DataSet 
da.Fill(ds, "tbl admin") 
DataGridViewl.DataSource - ds.Tables("tbl admin") 
End Sub 


Sub URUTANOTOMATIS() 
bukaDB() 
Dim urutankode As String 
Dim hitung As String 
cmd = New OdbcCommand("SELECT * FROM tbl admin where kodeadmin in(select 
max (kodeadmin) from tbl admin)", conn) 
rd - cmd.ExecuteReader 
rd.Read() 
If Not rd.HasRows Then 
urutankode = "AGM" + "001" 
Else 
hitung = Microsoft.VisualBasic.Right(rd.GetString(0), 3) + 1 
urutankode = "ADM" + Microsoft.VisualBasic.Right("00" & hitung, 3) 
End If 
txtkodeadmin.Text = urutankode 
txtkodeadmin.Enabled = False 
End Sub 
Sub ATURGDV () 


DataGridView1.Columns(0).Width = 130 
DataGridView1.Columns(1).Width = 130 
DataGridView1.Columns(2).Width = 130 


DataGridViewl.Columns(3).Width = 100 
DataGridView1.Columns(0).HeaderText = "KODE ADMIN" 
DataGridViewl.Columns(1).HeaderText = "NAMA ADMIN" 
DataGridViewl.Columns(2).HeaderText = "KATA SANDI" 
DataGridView1.Columns(3).HeaderText = "LEVEL" 
DataGridViewl.ColumnHeadersDefaultCellStyle.Alignment = 
DataGridViewContentAlignment .MiddleCenter 
DataGridViewl.ColumnHeadersDefaultCellStyle.Font = New Font("Quicksand", 
10, FontStyle.Bold) 
DataGridView1.DefaultCellStyle.Font = New Font("Quicksand", 9) 
DataGridViewl.AlternatingRowsDefaultCellStyle.BackColor = 
Color.GreenYellow 


End Sub 


Private Sub btntambah Click(sender As Object, e As EventArgs) Handles 
btntambah. Click 


Try 
If btntambah.Text = "TAMBAH" Then 


btntambah.Text = "SIMPAN" 
btnhapus.Text = "BATAL" 
SIAPISI () 
URUTANOTOMATTIS ( ) 
txtnamaadmin.Focus () 
ElseIf txtkodeadmin.Text - "" Then 
MsgBox ("Kode tidak boleh kosong", vbExclamation) 
txtkodeadmin.Focus () 
ElseIf txtnamaadmin.Text = "" Then 
MsgBox ("Kode tidak boleh kosong", vbExclamation) 
txtnamaadmin.Focus () 
ElseIf txtkatasandi.Text = "" Then 
MsgBox ("Kata Sandi tidak boleh kosong", vbExclamation) 
txtkatasandi.Focus () 
ElseIf ComboBox1.Text = "" Then 
MsgBox ("Level tidak boleh kosong", vbExclamation) 
ComboBox1.Focus() 
Else 
bukaDB() 
Dim simpan As String 
simpan = "INSERT INTO tbl admin values('" 8 txtkodeadmin.Text 8 
"rot" 8 txtnamaadmin.Text 8 "','" & txtkatasandi.Text 8 "','" 8 ComboBox1.Text & 
a A 
cmd = New OdbcCommand(simpan, conn) 
cmd.ExecuteNonQuery () 
MsgBox ("Data admin berhasil ditambah") 
KOSONGKANTEXT () 
TIDAKSIAPDIISI() 
KONDISIAWAL () 
TAMPILGDV () 


End If 
Catch ex As Exception 

MsgBox ("Data admin gagal ditambah") 
End Try 


End Sub 


Private Sub form master Load(sender As Object, e As EventArgs) Handles 
MyBase.Load 
TIDAKSIAPDIISI () 
ISICOMBOBOXL ( ) 
TAMPILGDV () 
ATURGDV () 
End Sub 


Private Sub btnhapus Click(sender As Object, e As EventArgs) Handles 
btnhapus.Click 
KOSONGKANTEXT () 
TIDAKSIAPDIISI () 
KONDISIAWAL () 


End Sub 


Private Sub DataGridViewl CellContentClick(sender As Object, e As 
DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick 


End Sub 


Private Sub DataGridViewl CellMouseClick(sender As Object, e As 
DataGridViewCellMouseEventArgs) Handles DataGridViewl.CellMouseClick 
txtkodeadmin.Text DataGridViewl.Rows (e.RowIndex).Cells(0).Value 
txtnamaadmin.Text DataGridViewl.Rows (e.RowIndex).Cells(1).Value 
txtkatasandi.Text - DataGridViewl.Rows (e.RowIndex).Cells(2).Value 
ComboBox1.Text = DataGridViewl.Rows (e.RowIndex).Cells(3).Value 
End Sub 
End Class 


ad Form Master — o x 


TAMBAH EDIT HAPUS Tes Koneksi 


Kode Admin: ADM001 
Nama Admin : ANDRI 
Kata Sandi: ANDRI 


Level : ADMIN 


